Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/hf.dir/00056_Search.ls

Text File | 1996-04-19 | 3.1 KB | 99 lines

on AthleteSearch aWord, aKeyWordList
  put "DUCK0" && string(aWord) && string(aKeyWordList)
  set vAthleteList to []
  set vTempList to []
  set vPath to 1
  if (aWord = EMPTY) and (aKeyWordList = EMPTY) then
    return vAthleteList
  end if
  if aWord = EMPTY then
    set vPath to 0
    set vAthleteList to searchForKeyWord(vTempList, aKeyWordList, vPath)
    return vAthleteList
  end if
  if aKeyWordList = EMPTY then
    set vAthleteList to searchForWord(aWord)
    return vAthleteList
  end if
  set vTempList to searchForWord(aWord)
  if vTempList = EMPTY then
    return vAthleteList
  end if
  set vAthleteList to searchForKeyWord(vTempList, aKeyWordList, vPath)
  return vAthleteList
end

on searchForWord aWord
  set vAthList to []
  set vAthList to searchForWord2(aWord, 1, vAthList)
  set vAthList to searchForWord2(aWord, 2, vAthList)
  set vAthList to searchForWord2(aWord, 3, vAthList)
  set vAthList to searchForWord2(aWord, 4, vAthList)
  set vAthList to searchForWord2(aWord, 5, vAthList)
  set vAthList to searchForWord2(aWord, 6, vAthList)
  set vAthList to searchForWord2(aWord, 7, vAthList)
  set vAthList to searchForWord2(aWord, 8, vAthList)
  set vAthList to searchForWord2(aWord, 9, vAthList)
  set vAthList to searchForWord2(aWord, 10, vAthList)
  return vAthList
end

on searchForWord2 aWord, aPart, vAthList
  set vSearchChunk to the text of cast ("BioIndex" & aPart)
  set vNumLines to the number of lines in vSearchChunk
  set vValid to 0
  set vSaveDel to the itemDelimiter
  set the itemDelimiter to ":"
  repeat with vI = 1 to vNumLines
    if line vI of vSearchChunk contains aWord then
      repeat with vII = 1 to the number of items in line vI of vSearchChunk
        if item vII of line vI of vSearchChunk starts aWord then
          set vValid to 1
          exit repeat
        end if
      end repeat
      if vValid then
        set vTemp to char 2 to 4 of word 1 of line vI of vSearchChunk
        add(vAthList, vTemp)
        set vValid to 0
      end if
    end if
  end repeat
  set the itemDelimiter to vSaveDel
  return vAthList
end

on searchForKeyWord aAthleteList, aKeyWordList, aPath
  set vTheList to []
  set vSearchChunk to the text of cast "KeywordIndex"
  set vLineNum to []
  set vAthListSize to count(aAthleteList)
  repeat with vI = 1 to vAthListSize
    add(vLineNum, value(char 2 to 4 of getAt(aAthleteList, vI)))
  end repeat
  set vNumKeyWords to count(aKeyWordList)
  if aPath = 1 then
    repeat with vI = 1 to vAthListSize
      repeat with vII = 1 to vNumKeyWords
        if line getAt(vLineNum, vI) of vSearchChunk contains ":" & getAt(aKeyWordList, vII) then
          set vTemp to char 2 to 4 of getAt(aAthleteList, vI)
          add(vTheList, vTemp)
          exit repeat
        end if
      end repeat
    end repeat
  else
    set vNumLines to the number of lines in vSearchChunk
    repeat with vI = 1 to vNumLines
      repeat with vII = 1 to vNumKeyWords
        if line vI of vSearchChunk contains ":" & getAt(aKeyWordList, vII) then
          set vTemp to char 2 to 4 of word 1 of line vI of vSearchChunk
          add(vTheList, vTemp)
          exit repeat
        end if
      end repeat
    end repeat
  end if
  return vTheList
end